home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
batsound.zip
/
AIR-RAID.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-03-23
|
607b
|
44 lines
program AirRaid;
uses crt;
var
varies : integer;
dummy : char;
begin
textcolor(7);
clrscr;
Writeln;
Writeln;
textcolor(140);
write(' Oh, God ....not again!');
textcolor(12);
writeln(' And me in the middle of dessert...');
varies := 30;
while varies <= 419 do
begin
sound(varies);
delay(20);
varies := varies + 1;
end;
repeat
while varies <= 629 do
begin
sound(varies);
delay(20);
varies := varies + 1;
end;
while varies >= 419 do
begin
sound(varies);
delay(17);
varies := varies -1;
end;
nosound;
delay(25);
until keypressed;
nosound;
dummy := readkey;
end.